home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 May / Chip Mayıs 2001.iso / prog / share / 07 / ASPFusion / data1.cab / Admin_Pages / Admin / dsp_websitesecuritydetail.asp < prev    next >
Encoding:
Text File  |  2001-03-25  |  9.4 KB  |  185 lines
  1. <%
  2. on error resume next
  3. dim SecurityBox
  4. if (Session("Index") <> "Index") then
  5.     Response.Redirect "index.asp"
  6. else
  7.     set SecurityBox = Server.CreateObject("AdvFusionBox.FusionBox")
  8. end if
  9. %>
  10. <!--- #include file = "index.js" --->
  11. <html>
  12. <head>
  13. <title>ASPFusion Security Box Administration</title>
  14. </head>
  15. <body bgcolor="#CAE4FF">
  16. <form action="act_websitesecuritydetail.asp" Method="POST" NAME="websitesecuritydetailform" onload="return focusit(document.websitesecuritydetailform.Path);">
  17. <div align="right">
  18. <table width="70%" align="left">
  19.  <tr width="100%" align="right">
  20.     <td><a href="javascript:submit(document.websitesecuritydetailform, document.websitesecuritydetailform.Logout, 'Logout')" onmouseover="window.status='Logout'; return true" onmouseout="window.status='';return true"><font color="#4D82D2" face="arial, helvetica, sans-serif" size="1">Logout</font></a></td>
  21.  </tr>
  22.  <tr width="100%" align="right">
  23.     <td><a href="dsp_changepassword.asp" onmouseover="window.status='Change Password'; return true" onmouseout="window.status='';return true"><font color="#4D82D2" face="arial, helvetica, sans-serif" size="1">Change Password</font></a></td>
  24.  </tr>
  25.  <tr width="100%" align="right">
  26.     <td><a href="dsp_registration.asp" onmouseover="window.status='Registration'; return true" onmouseout="window.status='';return true"><font color="#4D82D2" face="arial, helvetica, sans-serif" size="1">Registration</font></a></td>
  27.  </tr>
  28.  <tr width="100%" align="right">
  29.     <td><a href="dsp_default.asp" onmouseover="window.status='Default'; return true" onmouseout="window.status='';return true"><font color="#4D82D2" face="arial, helvetica, sans-serif" size="1">Default</font></a></td>
  30.  </tr>
  31.  <tr width="100%" align="right">
  32.     <td><a href="dsp_websitesecurity.asp" onmouseover="window.status='<< Back'; return true" onmouseout="window.status='';return true"><font color="#4D82D2" face="arial, helvetica, sans-serif" size="1"><< Back</font></a></td>
  33.  </tr>
  34. </table>
  35.   <table cellpadding="0" cellspacing="1" width="25%">
  36.     <tr width="100%" align="right">
  37.       <td><img src="Images/aspfusion.gif"></td>
  38.     </tr>
  39.   </table>
  40. </div>
  41. <br>
  42. <table width="100%" cellpadding="0">
  43. <input type="hidden" value="" name="Logout">
  44. <input type="hidden" value="" name="Insert">
  45. <input type="hidden" value="" name="Modify">
  46. <input type="hidden" value="" name="Delete">
  47. <%if (Request.QueryString("modify") = "1") then%>
  48.     <input type="hidden" value="0" name="Flag">
  49. <%else%>
  50.     <input type="hidden" value="1" name="Flag">
  51. <%end if%>
  52.   <tr>
  53.      <td colspan="4"><br>
  54.         <%if Request.QueryString("result") = "0" then%>
  55.             <p align="left"><font color="#FF0000" face="Arial" size="2"><b><%=Session("Error")%></b></p>
  56.         <%else%>
  57.             <p> </p>
  58.         <%end if%>
  59.      </td>
  60.   </tr>
  61.                 <tr>
  62.                   <td colspan="2" valign="top"><br><b><font face="Arial" size="3" color="#800000"><%=Request.QueryString("WebSiteName")%></font></b>
  63.                  </tr>
  64.                  <input type="hidden" name="WebSiteName" value="<%=Request.QueryString("WebSiteName")%>">
  65.                 <tr>
  66.                   <td width="20%"><br><font size="2" face="Arial">Path</font></td>
  67.                   <td width="80%"><br><input type="text" name="Path" size="40" value="<%if (Request.QueryString("modify") = "1") then
  68.                        set Result = SecurityBox.ReturnValue("WebSite.ini", "Path", Request.QueryString("WebSiteName"))%>
  69.                        <%=Result.value%>
  70.                        <%set Result = nothing
  71.                          end if%>"></td>
  72.                 </tr>
  73.                 <tr>
  74.                     <td width="20%"></td>
  75.                     <td colspan="80%"><font color="#9D9D9D" face="Arial" size="2">Specify physical path on which restricions for this ASPFusion Security Box are applied.</font></td>
  76.                 </tr>
  77.                 <tr>
  78.                   <td width="20%"><font face="Arial" size="2">Description</font></td>
  79.                   <td width="80%"><input type="text" name="Description" size="40" value="<%if (Request.QueryString("modify") = "1") then%>
  80.                        <%set Result = SecurityBox.ReturnValue("WebSite.ini", "Description", Request.QueryString("WebSiteName"))%>
  81.                        <%=Result.value%>
  82.                        <%set Result = nothing
  83.                          end if%>"></td>
  84.                 </tr>
  85.                 <tr>
  86.                     <td width="20%"></td>
  87.                     <td colspan="80%"><font color="#9D9D9D" face="Arial" size="2">Specify one line description for this ASPFusion Security Box.</font></td>
  88.                 </tr>
  89. <!--- ASP Include Start Mark --->
  90. <!--- #include file = 'dsp_AdvRegistry.asp' --->
  91. <!--- #include file = 'dsp_AdvIMAP4.asp' --->
  92. <!--- #include file = 'dsp_AdvDSN.asp' --->
  93. <!--- ASP Include End Mark --->
  94.                 <tr>
  95.                   <td colspan="2"><font face="Arial" size="2">Components</font></td>
  96.                 </tr>
  97.                 <tr>
  98.                     <td width="20%"></td>
  99.                     <td colspan="80%"><font color="#9D9D9D" face="Arial" size="2">Specify components and their methods which are free to use by this ASPFusion Security Box. 
  100.                     Uncheck components and unselected methods can not be used under this ASPFusion Security Box.</font></td>
  101.                 </tr>
  102.                 <tr>
  103.                   <td></td>
  104.                   <td>
  105.                     <%set Result = SecurityBox.ReturnValues("Admin.ini", "Settings", "Applied")
  106.                     if (Request.QueryString("modify") = "1") then
  107.                         set Rst = SecurityBox.ReturnValues("WebSite.ini", "Security", Request.QueryString("WebSiteName"))
  108.                     else
  109.                         set Rst = SecurityBox.ReturnValues("Admin.ini", "Settings", "Default")
  110.                     end if%>
  111.                     <div align="center">
  112.                       <table width="100%" cellpadding="5" cellspacing="5">
  113.                         <%dim count
  114.                           dim number
  115.                           count = 0
  116.                           number = 0
  117.                           for each Member in Result
  118.                               number = number + 1
  119.                                if (count = 0) then%>
  120.                                  <tr>
  121.                             <%end if
  122.                               count = count + 1%>
  123.                             <td valign="top"><b><font face="Arial" size="2"><%=number&"."%></font></b></td><td valign="top"><INPUT Name="Components" Type="checkbox" value="<%=member.value%>"
  124.                               <%for each mem in Rst%>
  125.                                     <%if (member.value = mem.value) then%>
  126.                                          checked
  127.                                     <%end if
  128.                                 next%>><font face="Arial" size="2"><%=member.value%></font>
  129.                                     <p><SELECT NAME="<%=member.value%>" multiple size="3">
  130.                                        <%set Result1 = SecurityBox.ReturnValues("Admin.ini", "AllMethods", member.value)
  131.                                        if (Request.QueryString("modify") = "1") then
  132.                                            set Rst1 = SecurityBox.ReturnValues("WebSite.ini", Request.QueryString("WebSiteName"), member.value)
  133.                                        else
  134.                                            set Rst1 = SecurityBox.ReturnValues("Admin.ini", "DefaultMethods", member.value)
  135.                                        end if
  136.                                          for each Member1 in Result1%>
  137.                                                 <OPTION value="<%=Member1.value%>"
  138.                                              <%for each mem1 in Rst1
  139.                                                if (member1.value = mem1.value) then%>
  140.                                                   selected
  141.                                              <%end if
  142.                                              next%>><%=Member1.value%></OPTION>
  143.                                         <%next%>
  144.                               </SELECT></p>
  145.                             </td>
  146.                             <%if (count = 4) then%>
  147.                                  </tr>
  148.                                  <%count = 0%>
  149.                             <%end if
  150.                           next
  151.                           set Rst1 = nothing
  152.                           set Result = nothing
  153.                           set Rst1 = nothing
  154.                           set Result1 = nothing
  155.                           set SecurityBox = nothing%>
  156.                       </table>
  157.                     </td>
  158. </table>
  159. <br>
  160. <table cellpadding="0" cellspacing="1" width="25%">
  161. <%if (Request.QueryString("modify") = "1") then%>
  162.   <tr width="100%" align="left">
  163.     <td width="35%"><a href="javascript:submit(document.websitesecuritydetailform, document.websitesecuritydetailform.Modify, 'Modify')" onclick="return websitesecuritydetail_checkit();" onmouseover="window.status='Modify'; return true" onmouseout="window.status='';return true"><img src="Images/modify.gif" border="0"></a></td>
  164.     <td><a href="javascript:if (deleteit(document.websitesecuritydetailform.WebSiteName.value)) submit(document.websitesecuritydetailform, document.websitesecuritydetailform.Delete, 'Delete')" onclick="return websitesecuritydetail_checkit();" onmouseover="window.status='Delete'; return true" onmouseout="window.status='';return true"><img src="Images/delete.gif" border="0"></a></td>
  165.   </tr>
  166. <%else%>
  167.   <tr width="100%" align="left">
  168.     <td><a href="javascript:submit(document.websitesecuritydetailform, document.websitesecuritydetailform.Insert, 'Insert')" onclick="return websitesecuritydetail_checkit();" onmouseover="window.status='Insert'; return true" onmouseout="window.status='';return true"><img src="Images/insert.gif" border="0"></a></td>
  169.   </tr>
  170. <%end if%>
  171. </table>
  172. <%if (Request.QueryString("modify") = "1") then%>
  173.     <br>
  174. <%end if%>
  175. <table align="center" width="100%">
  176.   <tr>
  177.     <td  align="center" valign="bottom">
  178.       <font face="Arial" color="black" size="1">Copyright ⌐ 2000, Advanced Communications</font>
  179.     </td>
  180.   </tr>
  181. </table>
  182. </form>
  183. </body>
  184. </html>
  185.